PC World Interactive 7/PC World Interactive 7.iso/program/vbkontrol.exe/IPD_102N.ZIP/PEEKWWW.FRM

Text File | 1994-10-15 | 5KB | 225 lines

VERSION 2.00
Begin Form Form1
   BackColor       =   &H00C0C0C0&
   Caption         =   "WWW Peek..."
   ClientHeight    =   6090
   ClientLeft      =   1455
   ClientTop       =   2520
   ClientWidth     =   6405
   Height          =   6495
   Left            =   1395
   LinkTopic       =   "Form1"
   ScaleHeight     =   6090
   ScaleWidth      =   6405
   Top             =   2175
   Width           =   6525
   Begin TextBox tResponse
      Height          =   4095
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   5
      Top             =   2040
      Width           =   6375
   End
   Begin CommandButton Command1
      Caption         =   "Send HTTP Request..."
      Height          =   375
      Left            =   3240
      TabIndex        =   4
      Top             =   1560
      Width           =   2295
   End
   Begin TextBox tURLPath
      Height          =   285
      Left            =   1440
      TabIndex        =   3
      Text            =   "/"
      Top             =   1080
      Width           =   4095
   End
   Begin TextBox tHostAddress
      Height          =   285
      Left            =   2280
      TabIndex        =   2
      Top             =   600
      Width           =   2535
   End
   Begin TextBox tHostName
      Height          =   285
      Left            =   2280
      TabIndex        =   1
      Text            =   "www.ncsu.edu"
      Top             =   240
      Width           =   2535
   End
   Begin IPPORT IPPort1
      EOL             =   ""
      InBufferSize    =   2048
      Left            =   5040
      LocalPort       =   0
      OutBufferSize   =   2048
      Port            =   0
      Top             =   240
   End
   Begin Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "Server Response:"
      Height          =   255
      Index           =   3
      Left            =   120
      TabIndex        =   8
      Top             =   1680
      Width           =   2415
   End
   Begin Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "URL Path:"
      Height          =   255
      Index           =   2
      Left            =   120
      TabIndex        =   7
      Top             =   1110
      Width           =   1095
   End
   Begin Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "Remote Host Address:"
      Height          =   255
      Index           =   1
      Left            =   120
      TabIndex        =   6
      Top             =   630
      Width           =   2175
   End
   Begin Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "Remote Host Name:"
      Height          =   255
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Top             =   270
      Width           =   1815
   End
End

Sub Command1_Click ()

On Error GoTo ErrorHandling:

IPPort1.EOL = Chr$(10)

Me.MousePointer = 11

'close old connection - if any
IPPort1.Connected = False

If IPPort1.HostAddress = "0.0.0.0" Then
    If tHostName <> "" Then
        IPPort1.HostName = tHostName.Text
        tHostAddress.Text = IPPort1.HostAddress
    ElseIf IPPort1.HostAddress <> "" Then
        IPPort1.HostAddress = tHostAddress.Text
        tHostName.Text = IPPort1.HostName
    Else
        MsgBox "Please specify a host."
        Exit Sub
    End If
End If

IPPort1.Port = 80

'ask for connection
IPPort1.Connected = True

'wait until it is achieved
Do Until IPPort1.Connected: DoEvents: Loop

'send data
IPPort1.DataToSend = "GET " & tURLPath.Text & Chr$(10)

Exit Sub

ErrorHandling:
    Me.MousePointer = 0
    MsgBox "Error!! " & Error$
    IPPort1.Connected = False
    Exit Sub

End Sub

Sub Form_Resize ()

tResponse.Height = Me.ScaleHeight - tResponse.Top
tResponse.Width = Me.ScaleWidth

End Sub

Sub IPPort1_Connected (StatusCode As Integer, Description As String)

tResponse = ""

If Description <> "OK" Then
    MsgBox "Connection error: " & Description
    Me.MousePointer = 0
End If

End Sub

Sub IPPort1_DataIn (Text As String, EOL As Integer)

If EOL Then Text = Text & Chr$(13) & Chr$(10)

tResponse.SelStart = Len(tResponse.Text)
tResponse.SelText = Text

End Sub

Sub IPPort1_Disconnected (StatusCode As Integer, Description As String)

Me.MousePointer = 0

If Description <> "OK" Then
    MsgBox "Connection broken: " & Description
End If

End Sub

Sub tHostAddress_KeyPress (KeyAscii As Integer)

On Error GoTo DAR_Failed:

If KeyAscii = 13 Then
    KeyAscii = 0
    IPPort1.HostAddress = tHostAddress.Text
    tHostName.Text = IPPort1.HostName
End If

Exit Sub

DAR_Failed:
    MsgBox Error$
    Exit Sub

End Sub

Sub tHostName_KeyPress (KeyAscii As Integer)

On Error GoTo DNR_Failed:

If KeyAscii = 13 Then
    KeyAscii = 0
    IPPort1.HostName = tHostName.Text
    tHostAddress.Text = IPPort1.HostAddress
End If

Exit Sub

DNR_Failed:
    MsgBox Error$
    Exit Sub

End Sub